home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / text / edit / bah.lha / BAH3.3.1 / Rexx / E / EBuild.bed next >
Text File  |  1998-10-16  |  951b  |  72 lines
  1. /* 
  2. ** $VER: EBuild.bed 1.0 (19.09.96) by M&F
  3. ** 
  4. ** Run .build in the current directory
  5. */ 
  6.  
  7. OPTIONS RESULTS
  8.  
  9. GetCurrentDir
  10. path = RESULT
  11.  
  12. ADDRESS COMMAND 'CD "' || path || '"' || '0A'X
  13.  
  14. SAY ('Current Dir : ' path)
  15.  
  16. name = "build"
  17.  
  18. SAY ('Looking for file : ' name)
  19.  
  20. name = path || "/" || name
  21.  
  22. ExistsFile name
  23.  
  24. IF RESULT = "YES" THEN DO
  25.     
  26.     'OpenDoc WINDOW=READONLY' name
  27.         
  28.     port = RESULT
  29.     ADDRESS VALUE port
  30.     
  31.     MoveSOF
  32.     MarkBlk
  33.     MoveEOF
  34.     GetBlkDims
  35.     PARSE VAR RESULT . . first . last
  36.     MarkBlk
  37.     
  38.     num = last - first + 1
  39.     
  40.     MoveSOF
  41.         
  42.     DO i = 1 TO num
  43.         GetLine 0 108
  44.         file = RESULT
  45.         
  46.         IF file ~= "" THEN DO
  47.             file = path || "/" || file
  48.             ExistsFile file
  49.             IF RESULT = "YES" THEN DO
  50.                 SAY ('Compiling :' || file )
  51.               ADDRESS COMMAND 'CD "' || path || '"' || '0A'X || 'EC "' || file || '"'
  52.             END
  53.         END
  54.         
  55.         ADDRESS VALUE port
  56.         MoveDown
  57.     END
  58.     
  59.     SetStatusBar "OK..."
  60.     
  61.     CloseDoc
  62.     
  63. END
  64.  
  65.  
  66. ELSE DO
  67.     SetStatusBar "No file build file"
  68.     EXIT
  69. END
  70.  
  71.  
  72.